1 IFPEEK(49152)<>96THENLOAD"GRAFIX RTNS",8,1
10 BA=49153:SYS BA,1,2,0,0
15 FOR I=1 TO 0 STEP -.1
17 J=J+1:IFJ>2THENJ=1
20 FOR X=0 TO 64
30 X1=80+X*I:X2=80-X*I
40 Y=SQR((64-X)*100)
50 Y1=100+Y:Y2=100-Y
60 SYSBA+6,Y1,X1,J
61 SYSBA+6,Y2,X1,J
62 SYSBA+6,Y2,X2,J
63 SYSBA+6,Y1,X2,J
70 NEXT:NEXT
80 GETA$:IFA$=""GOTO80
90 SYSBA+9:PRINT"[147]";